033LSP.OUT[TIM,LSP] - www.SailDart.org

perm filename 033LSP.OUT[TIM,LSP] blob sn#681183 filedate 1982-10-05 generic text, type T, neo UTF8


(* (SPECIAL SIZE CLASSMAX TYPEMAX D)
   (FIXNUM (PLACE FIXNUM FIXNUM) SIZE CLASSMAX TYPEMAX D))


(PROGN (QUOTE COMPILE)
       (FLUSH-MACROMEMOS (QUOTE TAB) (QUOTE FLUSH-MACROMEMOS))
       (DEFINEQ ((TAB MACRO)
		 (LAMBDA (|TAB-MACROARG..1|) 
		   (OR (MACROFETCH |TAB-MACROARG..1|)
		       (MACROMEMO
			|TAB-MACROARG..1|
			(PROGN |TAB-MACROARG..1| (QUOTE (TYO 9)))
			(QUOTE TAB)))))))


(PROGN (SETQ TRUE T) (SETQ FALSE NIL))


(* (PROGN (SETQ TRUE T) (SETQ FALSE NIL)))


(SETQ SIZE 511)


(SETQ CLASSMAX 3)


(SETQ TYPEMAX 13)


(SETQ D 8)


(* (SPECIAL III KOUNT) (FIXNUM III I J K KOUNT M N))


(* (ARRAY* (FIXNUM PIECECOUNT 1 CLASS 1 PIECEMAX 1)
	   (NOTYPE PUZZLE 1 P 2)))


(DEFINE-ARRAY PIECECOUNT FIXNUM (IPLUS CLASSMAX 2))


(DEFINE-ARRAY CLASS FIXNUM (ADD1 TYPEMAX))


(DEFINE-ARRAY PIECEMAX FIXNUM (ADD1 TYPEMAX))


(DEFINE-ARRAY PUZZLE T (IPLUS SIZE 2))


(DEFINE-ARRAY P T (ADD1 TYPEMAX) (IPLUS SIZE 2))